95 POKE53281,15:POKE53280,15
100 PRINT"[147][144]FINANCIAL CALCULATIONS: SELECT ONE
110 [153]"1-FUTURE VALUE
120 PRINT"2-PRESENT VALUE
130 [153]"3-LOAN PAYMENTS
140 PRINT"4-LOAN TIMING
150 [153]"5-QUIT
160 POKE198,0:WAIT198,7:GETX$:X=VAL(X$):IFX<1ORX>5THEN100
170 IFX=5THENEND
180 ONXGOSUB290,190,390,510:GOTO100
190 PRINT"PRESENT VALUE":PRINT"*************
200 [153]"THE AMOUNT YOU NEED NOW TO GET A CERTAIN";
210 [153]"AMOUNT AT A FUTURE DATE.":F[178]0:T[178]0:R[178]0
220 [153]"ENTER THE FOLLOWING OR ZERO TO END"
230 [153]"FUTURE AMOUNT";:X[178]F:[141]620:F[178]X:[139] X[178]0 [167] [142]
240 [153]"NO.PERIODS INTEREST COMPOUNDED";:X[178]T:[141]620:T[178]X
250 [153]"% RATE PER PERIOD";:X[178]I:[141]620:I[178]X
260 R[178]I[173]100:Z[178]F[173]((1[170]R)[174]T)
270 [153]"PRESENT VALUE IS"Z:[137]220
280 [172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172]
290 [153]"FUTURE VALUE":[153]"************
300 PRINT"THE AMOUNT YOU WILL HAVE IF YOU INVEST"
310 PRINT"A CERTAIN AMOUNT NOW AT A GIVEN RATE":A=0:T=0:R=0
320 PRINT"ENTER THE FOLLOWING OR ZERO TO END"
330 PRINT"INVESTMENT";:X=A:GOSUB620:A=X:IF X=0 THEN RETURN
340 PRINT"# PERIODS INTEREST COMPOUNDED";:X=T:GOSUB620:T=X
350 PRINT"% RATE PER PERIOD";:X=I:GOSUB620:I=X:R=I/100
360 X=A*(1+R)^T
370 PRINT"THE FUTURE VALUE WILL BE"X:GOTO320
380 **********************************
390 PRINT"LOAN PAYMENTS":PRINT"*************
400 [153]"THE TIME YOU'LL NEED TO PAY OFF A LOAN
410 PRINT"WITH A GIVEN PAYMENT":A=0:P=0:R=0
420 PRINT"ENTER THE FOLLOWING OR ZERO TO END"
430 PRINT"LOAN AMOUNT";:X=A:GOSUB620:A=X:IF X=0 THEN RETURN
440 PRINT"AMOUNT OF EACH PAYMENT";:X=P:GOSUB620:P=X
450 PRINT"% RATE PER PAYMENT";:X=I:GOSUB620:I=X:R=X/100
460 X=LOG(P/(P-A*R))/LOG(1+R):Z=INT(X)
470 PRINT"TO PAY OFF THIS LOAN, YOU'LL NEED"Z:PRINT"PAYMENTS OF"P"EACH";
480 IFINT(X+.999)<>ZTHENPRINT",AND ONE PAYMENT":PRINT"OF"P*(X-Z);
490 PRINT:GOTO420
500 **********************************
510 PRINT"LOAN LENGTH":PRINT"***********
520 [153]"THE PAYMENTS YOU'LL NEED TO COMPLETE A
530 PRINT"LOAN BY A CERTAIN TIME":A=0:P=0:R=0
540 PRINT"ENTER THE FOLLOWING OR ZERO TO END"
550 PRINT"LOAN AMOUNT";:X=A:GOSUB620:A=X:IF X=0 THEN RETURN
560 PRINT"# PERIODS TO PAY OFF IN";:X=P:GOSUB620:P=X
570 PRINT"% RATE PER PAYMENT PERIOD";:X=I:GOSUB620:I=X:R=X/100
580 X=A*R/(1-1/(1+R)^INT(P))
590 PRINT"TO PAY OFF THIS LOAN IN"INT(P)"PAYMENTS"
600 PRINT"YOU'LL NEED EACH PAYMENT TO BE"X:GOTO540
610 **********************************
620 REM INPUT ITEM
630 X$=STR$(X):PRINT" "X$LEFT$("[157][157][157][157][157][157][157][157][157]",LEN(X$)+1);:INPUTX:RETURN